0 GOSUB6:DIMW$(300):POKE53281,0:POKE53280,0:POKE650,128:
1 FORI=1TO15:POKE211,0:POKE214,I:SYS58640
3 PRINT"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4 POKE211,0:POKE214,16:SYS58640:PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5 GOTO10
6 POKE53265,PEEK(53265)AND239:RETURN
7 POKE53265,PEEK(53265)OR 16:RETURN
10 FORR=0TO60:READA$:W$(R)=A$:NEXT
11 POKE211,0:POKE214,17:SYS58640:
12 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:U$="MAG"
13 PRINT"[213][203][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [202][201]";
14 PRINT"[194][155]       [176][195][195][174] [176][195][195][195][174] [176][195][195][174] [195][178][195] [176]   [176]      [194]";
15 PRINT"[194]       [171][195][195][189] [171][195][195][195][179] [171][195][178][189]  [194]  [173][195][178][195][189]      [194]";
16 PRINT"[194][155]       [173]    [173]   [189] [173] [173][189]  [173]    [173]        [194]";
17 PRINT"[202][201][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [213][203]";
18 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] ";:U$="MAG"
20 X=0:Y=-1
21 FORI=1TO15:POKE211,1:POKE214,I:SYS58640:PRINT"[154]"W$(X+I):NEXT:GOSUB7:GOTO22
22 GETA$:
23 IFA$=CHR$(13)THEN50
24 IF A$="."ANDX<60THENX=X+15:GOTO21
25 IF A$=","ANDX>0THENX=X-15:GOTO21
26 GOTO22
50 POKE828,0:PRINTCHR$(147)CHR$(17):PRINT"[144]LOAD"CHR$(34)"M1*"CHR$(34)",8"
51 PRINTCHR$(17)CHR$(17)CHR$(17)CHR$(17)"RUN"
52 POKE631,13:POKE632,13:POKE198,2
53 PRINTCHR$(19);:END
100 DATA"                                    "
101 DATA" [209][209][209] [209][209][209] [209]  [209] [209][209][209] [209] [209] [209][209][209] [209][209][209] [209][209][209] ' S "
102 DATA" [209]   [209] [209] [209][209][209][209] [209] [209] [209] [209]  [209]  [209]   [209] [209]     "
103 DATA" [209]   [209] [209] [209]  [209] [209][209][209] [209] [209]  [209]  [209][209]  [209][209][209]     "
104 DATA" [209]   [209] [209] [209]  [209] [209]   [209] [209]  [209]  [209]   [209][209]      "
105 DATA" [209][209][209] [209][209][209] [209]  [209] [209]   [209][209][209]  [209]  [209][209][209] [209] [209]     "
106 DATA"                                      "
107 DATA"             HELL '99                 "
108 DATA"                                      "
109 DATA"                                      "
110 DATA" INFOTEXT ZUR GROESSTEN C-64 PARTY IN "
111 DATA"                                      "
112 DATA" BERLIN. 2 NAECHTE UND 2 TAGE HOELLE! "
113 DATA"                                      "
114 DATA"                                      "
115 DATA"TJA, NUN IST ES ALSO SO WEIT. DIE ERS-"
116 DATA"TE C-64 IN BERLIN. DER GENAUERE HIN-  "
117 DATA"TERGRUND LIEGT DARIN, DEN LEUTEN MAL  "
118 DATA"ZU ZEIGEN, DASS AUCH WIR HIER PARTIES "
119 DATA"MACHEN KOENNEN UND WOLLEN. AUSSERDEM  "
120 DATA"SUCHEN WIR UND WOHL DIE GESAMTE SCENE "
121 DATA"NACH WEITEREN C-64 FREAKS. VIELLEICHT "
122 DATA"'WECKEN' WIR DAMIT WEITERE WIEDER AUF!"
124 DATA"PLATZ BIETET EIN GEMIETETER JUGENDCLUB"
125 DATA"DER UNS FUER 2 TAGE ZUR VERFUEGUNG    "
126 DATA"STEHT. GENAUERE DATEN FOLGEN JETZT:   "
127 DATA"BEGINN:                               "
128 DATA"AM 21. MAI (FREITAG) UM 18.00         "
129 DATA"ENDE:                                 "
130 DATA"AM 23. MAI (SONNTAG) UM 15.00         "
131 DATA"ORT:                                  "
132 DATA"BERLIN - HELLERSDORF                  "
133 DATA"AUERBACHER RING 25                    "
134 DATA"NAEHE UBHF COTTBUSSER PLATZ (U5)      "
135 DATA"NAME DES CLUBS: [154]U5                    "
136 DATA"                                      "
137 DATA"WAS MUSS ICH MITNEHMEN:               "
138 DATA"NEUER STUFF WAERE NATUERLICH NICHT    "
139 DATA"SCHLECHT. WAS DIE HARDWARE BETRIFFT,  "
140 DATA"SO WAERE ES SCHOEN, WENN IHR ETWAS DA-"
141 DATA"ZUBEITAGEN WUERDET, DEN RAUM ZU FUEL- "
142 DATA"LEN. SCHLAFZEUG (?!?) KANN MUSS ABER  "
143 DATA"NICHT !!!!                            "
144 DATA"                                      "
145 DATA"WAS KOSTET DAS GANZE :                "
146 DATA"DAS KOMMT AUF DIE BESUCHERANZAHL AN !!"
147 DATA"GEKOSTET HAT DAS HAUS 300/350 DM. DIE-"
148 DATA"SEN BETRAG TEILEN WIR UNTER DEN BESU- "
149 DATA"CHERN AUF !!!! (30 LEUTE = 10 DM !!!) "
150 DATA"                                      "
151 DATA"BEI WEM MELDE ICH MICH AN:            "
152 DATA"SPONTANBESUCHE SIND NATUERLICH AUCH OK"
153 DATA"ALLERDINGS WAERE ES BESSER, MICH NOCH-"
154 DATA"MAL ANZURUFEN (WEITERE INFO ETC) !!!!!"
155 DATA"MICH, DAMIT IST LOST BRAIN GEMEINT:   "
156 DATA"[158](030)  56498321[154]  ERST AB 20 UHR !!!  "
157 DATA"                                      "
158 DATA"DAS MIT VERPFLEGUNG UND SO WEITER WIRD"
159 DATA"NOCH GEKLAERT. NOTFALLS BEFINDEN SICH "
160 DATA"ABER GENUEGEND BUDEN IN NAHER NAEHE !!"
161 DATA"ALSO, ICH HOFFE AUF EUREN BESUCH.     "